Imports System.Data

Partial Class login_Default
    Inherits UserPage

    Protected Sub LoginButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LoginButton.Click

        Dim serverName As String = txtServerName.Text
        Dim username As String = txtUsername.Text
        Dim password As String = txtPassword.Text

        Dim sd As New SessionData
        With sd
            .ServerName = serverName
            .UserName = username
            .Password = password
        End With
        Session(SessionData.VARIABLE_NAME) = sd

        Response.Redirect(SiteMap.EMPIRE_PAGE)

    End Sub
End Class
